Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/E-G/Get⁄SetStationery 1.0.cpt/Get_SetStationery 1.0/cards.xml

Text File | 1991-09-01 | 5KB | 116 lines

card_2839.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2839</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2788</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3217.css" />
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>4</left>
            <top>94</top>
            <right>228</right>
            <bottom>304</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>65</top>
            <right>104</right>
            <bottom>87</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GetStationery</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardget GetStationery(appname)if the number of chars of it ≤ 5 thenanswer "The stationery flag of “" & appname & "” is" && it & "."elseanswer it with "Sorry"end ifend mouseUp</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>127</left>
            <top>65</top>
            <right>227</right>
            <bottom>87</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>SetStationery</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardif getstationery(appname) thenanswer "Change stationery flag to what?" with "True" or "False"elseanswer "Change stationery flag to what?" with "False" or "True"end ifsetstationery appname,itif the result ≠ "" then answer the result with "Sorry"end mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>9</id>
        <text><span class="style1">etStationery takes one parameter, the pathname of the file you want to examine. SetStationery takes two parameters, the pathname of the file and TRUE or FALSE indicating your choice of setting. Click on and/or examine the scripts of the buttons above to see how it works!The stationery flag specifies that a file is a stationery pad. To support stationery pads, your application should check this flag for every document passed to it by the user. If the flag is true for a file that a user wants to open, your application whould copy the template's contents into a new document in an untitled window (or stack as the case may be).A small shareware fee of $5.00 is requested if you use these externals in any “in house”, shareware or freeware products. The registration fee for development and prototyping of a future commercial product is $10.  The registration fee for unlimited commercial use in a SINGLE “for sale” product is $15.  The fee for unlimited commercial use with MULTIPLE products is $25.   These are life-time registrations.  You are entitled to all future shareware updates without further cost.For additional information you can contact us in any of the following ways:</span><span class="style2">America Online:  ProX JeffGEnie:           APOSTASYCompuserve:      76675,1772AppleLink:       ALL.AMERICAN</span><span class="style3">All-American Software Development Corp.P. O. Box 50635Minneapolis MN  55405-0635</span></text>
    </content>
    <name></name>
    <script></script>
</card>